{  Statement: http://acmp.ru/?main=task&id_task=85
   Verdict: Accepted
}
uses
        SysUtils, Math;

var
    x,y,g,i:longint;

procedure swap(var a,b:longint);

var
    t:longint;

begin
t := a;
a := b;
b := t;
end;

function gcd(a,b:longint):longint;
begin
if a<b then swap(a,b);
while b > 0 do begin
    a := a mod b;
    swap(a,b);
end;
result := a;
end;

begin
reset(input,'input.txt');
rewrite(output,'output.txt');
read(x,y);
g := gcd(x,y);
for i := 1 to g do
        write(1);
end.
